﻿
Public Class PermisoMethod

    Public Shared Function RecuperarPermisos(ByVal Rol As ClaseEnumObj.Roles, ByVal UsuarioActual As UsuarioObj) As PermisoObj
        Try
            Dim Permiso As PermisoObj

            Permiso = DataFactory.Permiso.ConsultarPermisos(Rol, UsuarioActual)

            Return Permiso

        Catch ex As SqlException
            Throw ex
        Catch ex As AccesoDatosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlRecuperarPermisos, ex)
        Catch ex As ReglaNegociosObjetosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlRecuperarPermisos, ex)
        Catch ex As Exception
            Throw New ReglaNegociosMetodosException(String.Format(My.Resources.ResMensajes.ErrorDesconocido, ex.Message), ex)
        End Try
    End Function


End Class
